COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(PUTPROP (QUOTE BKEVAL) (GET (QUOTE EVAL) (QUOTE LSUBR)) (QUOTE LSUBR)) 
C00004 ENDMK
C⊗;
(PUTPROP (QUOTE BKEVAL) (GET (QUOTE EVAL) (QUOTE LSUBR)) (QUOTE LSUBR)) 
(PUTPROP (QUOTE BKSETQ) (GET (QUOTE SETQ) (QUOTE FSUBR)) (QUOTE FSUBR)) 

(DEFPROP BREAK1
 (LAMBDA (BRKEXP BRKWHEN BRKFN BRKCOMS BRKTYPE) (//BREAK1 ))
EXPR)

(DEFPROP BREAKMACROS
 (NIL (TRACE NIL
	     ((OUTC (CADR #%IOCHANS%#) NIL)
	      (BKPOS #%INDENT)
	      (PRINC (QUOTE ENTER/ ))
	      (PRIN1 BRKFN)
	      (PRINC (QUOTE :))
	      (BKSETQ #%INDENT (*PLUS #%INDENT 3))))
      (EX NIL (FROM?= NIL))
      (-> X (> . X))
      (F X (& . X)))
VALUE)


(DEFPROP %PRINFN
 (%PRINFN . PLEV)
VALUE)

(DEFPROP ERRORX
 (NIL NIL T T)
ERXACTION)

(MAPC (FUNCTION (LAMBDA (X) (PUTPROP X (QUOTE (NIL NIL NIL NIL)) (QUOTE ERXACTION))))
      (QUOTE (BREAK1 //BREAK1 BRKAPPLY BREAK1ERX %ERDEPTH)))

(SETQ USERERRORX NIL)